home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / swanson / about.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-01-06  |  3.6 KB  |  119 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BackColor       =   &H8000000F&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About - Optimizing Visual Basic Code"
  6.    ClientHeight    =   2205
  7.    ClientLeft      =   2040
  8.    ClientTop       =   2040
  9.    ClientWidth     =   4830
  10.    ClipControls    =   0   'False
  11.    Height          =   2610
  12.    Left            =   1980
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2205
  17.    ScaleWidth      =   4830
  18.    Top             =   1695
  19.    Width           =   4950
  20.    Begin PictureBox Picture1 
  21.       AutoSize        =   -1  'True
  22.       BackColor       =   &H00C0C0C0&
  23.       BorderStyle     =   0  'None
  24.       ClipControls    =   0   'False
  25.       Height          =   480
  26.       Left            =   180
  27.       Picture         =   ABOUT.FRX:0000
  28.       ScaleHeight     =   480
  29.       ScaleWidth      =   480
  30.       TabIndex        =   5
  31.       Top             =   195
  32.       Width           =   480
  33.    End
  34.    Begin CommandButton ExitButton 
  35.       Caption         =   "&OK"
  36.       Height          =   375
  37.       Left            =   3585
  38.       TabIndex        =   4
  39.       Top             =   135
  40.       Width           =   1050
  41.    End
  42.    Begin CommandButton Command1 
  43.       Caption         =   "Sys &Info..."
  44.       Height          =   375
  45.       Left            =   3585
  46.       TabIndex        =   3
  47.       Top             =   675
  48.       Width           =   1050
  49.    End
  50.    Begin Line Line1 
  51.       BorderColor     =   &H00808080&
  52.       Index           =   1
  53.       X1              =   915
  54.       X2              =   4615
  55.       Y1              =   1260
  56.       Y2              =   1260
  57.    End
  58.    Begin Line Line1 
  59.       BorderColor     =   &H00FFFFFF&
  60.       BorderWidth     =   2
  61.       Index           =   0
  62.       X1              =   900
  63.       X2              =   4600
  64.       Y1              =   1275
  65.       Y2              =   1275
  66.    End
  67.    Begin Label lblDesc 
  68.       BackColor       =   &H00C0C0C0&
  69.       Caption         =   "VBITS '95 London. Optimizing Visual Basic Code Sample Application."
  70.       FontBold        =   0   'False
  71.       FontItalic      =   0   'False
  72.       FontName        =   "MS Sans Serif"
  73.       FontSize        =   8.25
  74.       FontStrikethru  =   0   'False
  75.       FontUnderline   =   0   'False
  76.       ForeColor       =   &H00800000&
  77.       Height          =   465
  78.       Left            =   900
  79.       TabIndex        =   0
  80.       Top             =   750
  81.       Width           =   2655
  82.    End
  83.    Begin Label lblCredits 
  84.       BackColor       =   &H00C0C0C0&
  85.       Caption         =   "Created By: Many Microsoft Presenters   
  86.  1995 - Microsoft Corporation"
  87.       ForeColor       =   &H00800000&
  88.       Height          =   615
  89.       Left            =   900
  90.       TabIndex        =   1
  91.       Top             =   1395
  92.       Width           =   3315
  93.    End
  94.    Begin Label lblAppInfo 
  95.       BackColor       =   &H00C0C0C0&
  96.       ForeColor       =   &H00800000&
  97.       Height          =   525
  98.       Left            =   900
  99.       TabIndex        =   2
  100.       Top             =   195
  101.       Width           =   2520
  102.    End
  103. Option Explicit
  104. Sub Command1_Click ()
  105.     Load frmSysInfo
  106.     frmSysInfo.Show
  107. End Sub
  108. Sub ExitButton_Click ()
  109.     Unload Me
  110. End Sub
  111. Sub Form_Load ()
  112.     Me.Left = (Screen.Width - Me.Width) / 2
  113.     Me.Top = (Screen.Height - Me.Height) / 2
  114.     lblAppInfo = "Optimizing Visual Basic Code" & Chr$(13) & Chr$(10) & "ver. " & AppVersion & " - Build " & LastAppUpdate
  115. End Sub
  116. Sub Picture1_DblClick ()
  117.     frmSysInfo.Show 1
  118. End Sub
  119.